home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / JMACMENU.Dxr / 00048_Œ€ÿ—ån.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  628 b   |  34 lines
  1. global volset
  2.  
  3. on volupcrt
  4.   repeat while the stillDown
  5.     puppetSprite(30, 1)
  6.     set the memberNum of sprite 30 to 11
  7.     updateStage()
  8.   end repeat
  9.   set the memberNum of sprite 30 to 10
  10.   updateStage()
  11.   puppetSprite(30, 0)
  12.   set volset to volset + 1
  13.   if volset > 7 then
  14.     set volset to 7
  15.   end if
  16.   volcrt()
  17. end
  18.  
  19. on voldowncrt
  20.   repeat while the stillDown
  21.     puppetSprite(29, 1)
  22.     set the memberNum of sprite 29 to 9
  23.     updateStage()
  24.   end repeat
  25.   set the memberNum of sprite 29 to 8
  26.   updateStage()
  27.   puppetSprite(29, 0)
  28.   set volset to volset - 1
  29.   if volset < 0 then
  30.     set volset to 0
  31.   end if
  32.   volcrt()
  33. end
  34.